home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2010 April / PCWorld0410.iso / hity wydania / Ubuntu 9.10 PL / karmelkowy-koliberek-desktop-9.10-i386-PL.iso / casper / filesystem.squashfs / usr / bin / debconf < prev    next >
Text File  |  2009-10-02  |  3KB  |  117 lines
  1. #!/usr/bin/perl -w
  2.  
  3. =head1 NAME
  4.  
  5. debconf - run a debconf-using program
  6.  
  7. =cut
  8.  
  9. =head1 SYNOPSIS
  10.  
  11.  debconf [options] command [args]
  12.  
  13. =head1 DESCRIPTION
  14.  
  15. Debconf is a configuration system for Debian packages. For a debconf
  16. overview and documentation for sysadmins, see L<debconf(7)> (in the
  17. debconf-doc package).
  18.  
  19. The B<debconf> program runs a program under debconf's control, setting it up
  20. to talk with debconf on stdio. The program's output is expected to be debconf
  21. protocol commands, and it is expected to read result codes on stdin. See
  22. L<debconf-devel(7)> for details about the debconf protocol.
  23.  
  24. The command to be run under debconf must be specified in a way that will
  25. let your PATH find it.
  26.  
  27. This command is not the usual way that debconf is used. It's more typical
  28. for debconf to be used via L<dpkg-preconfigure(8)> or L<dpkg-reconfigure(8)>.
  29.  
  30. =head1 OPTIONS
  31.  
  32. =over 4
  33.  
  34. =item B<-o>I<package>, B<--owner=>I<package>
  35.  
  36. Tell debconf what package the command it is running is a part of. This is
  37. necessary to get ownership of registered questions right, and to support
  38. unregister and purge commands properly.
  39.  
  40. =item B<-f>I<type>, B<--frontend=>I<type>
  41.  
  42. Select the frontend to use.
  43.  
  44. =item B<-p>I<value>, B<--priority=>I<value>
  45.  
  46. Specify the minimum priority of question that will be displayed.
  47.  
  48. =back
  49.  
  50. =head1 EXAMPLES
  51.  
  52. To debug a shell script that uses debconf, you might use:
  53.  
  54.  DEBCONF_DEBUG=developer debconf my-shell-prog
  55.  
  56. Or, you might use this:
  57.  
  58.  debconf --frontend=readline sh -x my-shell-prog
  59.  
  60. =head1 SEE ALSO
  61.  
  62. L<debconf-devel(7)>, L<debconf(7)>
  63.  
  64. =cut
  65.  
  66. use strict;
  67. use Debconf::Db;
  68. use Debconf::AutoSelect qw(:all);
  69. use Debconf::Gettext;
  70. use Debconf::Config;
  71.  
  72. # Find the end of the options for this command, and the beginning of the
  73. # command to run, which may have arguments. Break those arguments out.
  74. my (@argv, @command);
  75. for (my $x=0; $x <= $#ARGV; $x++) {
  76.     if ($ARGV[$x] =~ /^-(o|f|p|-(owner|frontend|priority))$/) {
  77.         push @argv, $ARGV[$x++];
  78.         push @argv, $ARGV[$x]; # skip option argument
  79.         next;
  80.     }
  81.     elsif ($ARGV[$x] =~ /^-/) {
  82.         push @argv, $ARGV[$x];
  83.     }
  84.     else {
  85.         # end of arguments, start of command
  86.         @command=@ARGV[$x..$#ARGV];
  87.         last;
  88.     }
  89. }
  90. @ARGV=@argv;
  91. my $usage = gettext("Usage: debconf [options] command [args]");
  92. my $owner='';
  93. Debconf::Config->getopt($usage.gettext(qq{
  94.   -o,  --owner=package        Set the package that owns the command.}),
  95.         "o|owner=s"        => \$owner,
  96. );
  97. die "$usage\n" unless @command;
  98.  
  99. Debconf::Db->load;
  100. my $frontend=make_frontend();
  101. my $confmodule=make_confmodule(@command);
  102. $confmodule->owner($owner) if length $owner;
  103.  
  104. 1 while ($confmodule->communicate);
  105.  
  106. my $code=$confmodule->exitcode;
  107. $frontend->shutdown;
  108. $confmodule->finish;
  109. Debconf::Db->save;
  110. exit $code;
  111.  
  112. =head1 AUTHOR
  113.  
  114. Joey Hess <joeyh@debian.org>
  115.  
  116. =cut
  117.